(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.

diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 0ac9e46f4ea8cb4b1614e2a0fcce9ce43d7252a1..2356c65917ae544200814700c5de55a5f0e0c3e9 100644 (file)
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -462,7 +462,7 @@ where L-UNIQUE is considered to be union'ized already."
       (setq l (cdr l)))
     result))
 
-(defun mouse-union-first-prefered (l1 l2)
+(defun mouse-union-first-preferred (l1 l2)
   "Return the union of lists of mouse (code . form) pairs L1 and L2,
 based on the code's, with preference going to elements in L1."
   (mouse-union l2 (mouse-union l1 nil)))
@@ -471,7 +471,7 @@ based on the code's, with preference going to elements in L1."
   "Return a list of (code . function) pairs, where each code is
 currently set in the REGION."
   (let ((mask (mouse-region-to-code region)))
-    (mouse-union-first-prefered
+    (mouse-union-first-preferred
      (mouse-mask-lookup mask (cdr current-local-mousemap))
      (mouse-mask-lookup mask (cdr current-global-mousemap))
      )))